VB Webbrowserؼʹ÷(1)_̲ٶȿռ | ٶҳ | ¼                  ̲贴ڶ 
ҳ|˵ | |а  鿴 
VB Webbrowserؼʹ÷(1)20090116  13:06ύform1 
      Private Sub Command1_Click() 
      WebBrowser1.Document.Forms(\"form1\").submit 
      End Sub form1еΪuΪã 
      Private Sub Command2_Click() 
      WebBrowser1.Document.Forms(\"form1\").u.setAttribute \"disabled\", 
      \"disabled\" 
      End Sub
      form1еΪuTextеΪabc 
      Private Sub Command2_Click() 
      WebBrowser1.Document.Forms(\"form1\").u.setAttribute \"value\", \"abc\" 
      End Sub
      1Ϣ 
      Private Sub Command1_Click() 
      WebBrowser1.Navigate \"http://www.applevb.com\" 
      End Sub 
      Private Sub Command2_Click() 
      Dim oWindow 
      Dim oNav 
      Set oWindow = WebBrowser1.Document.parentWindow 
      Set oNav = oWindow.navigator 
      Debug.Print oNav.userAgent 
      Set oWindow = Nothing 
      Set oNav = Nothing 
      End Sub 
      Command1ҳCommand2Ϣ 
      2WebbrowserϢ 
      Dim oWindow 
      Set oWindow = WebBrowser1.Document.parentWindow 
      oWindow.confirm \"abcd\" 
      VBwebbrowserɼ2 
      WebbrowserдHTMLݵļַ 
      Form_Loadм 
      WebBrowser1.Navigate \"about:blank\" 
      ȷWebbrowser1 

      1 
      Dim s As String 
      Dim stream As IStream 
      s = \"\" 
      s = s + \"\" 
      s = s + \"\" 
      s = s + \" 
      hello world 
      \" 
      s = s + \"\" 
      s = s + \" 
      WebBrowser1.Document.Write s 

      2 
      Dim o 
      Set o = WebBrowser1.Document.selection.createrange 
      Debug.Print o 
      If (Not o Is Nothing) Then 
      o.pasteHTML \"\" 
      Set o = Nothing 
      End If 

      3 
      ı 
      Dim o 
      Set o = WebBrowser1.Document.selection.createrange 
      o.execCommand \"InsertTextArea\", False, \"xxx\" 
      vbWebbrowserɼ3 
      1ҳ 
      Private Sub Command2_Click() 
      WebBrowser1.Document.parentwindow.scrollby 0, 30 
      End Sub 
      Private Sub Form_Load() 
      WebBrowser1.Navigate \"http://www.applevb.com\" 
      End Sub 

      Command2Ϳʹǰҳ¹30 

      2жҳǷǰ 
      Private Sub Command1_Click() 
      WebBrowser1.GoForward 
      End Sub 
      Private Sub Command2_Click() 
      WebBrowser1.GoBack 
      End Sub 
      Private Sub Form_Load() 
      WebBrowser1.Navigate \"http://www.applevb.com\" 
      End Sub 
      Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal 
      Enable As Boolean) [Page]
      If (Command = CSC_NAVIGATEBACK) Then 
      Command2.Enabled = Enable 
      End If 
      If (Command = CSC_NAVIGATEFORWARD) Then 
      Command1.Enabled = Enable 
      End If 
      End Sub 
      VBwebbrowserɼ4 
      1ʹҳֹ 
      Private Sub mnuScroll1_Click() 
      @#ע⣺ҳȫʾ֮ſ 
      WebBrowser1.Document.body.Scroll = \"no\" @#ʾİ취 
      End Sub 
      Private Sub mnuScroll2_Click() 
      @#ע⣺ҳȫʾ֮ſ 
      WebBrowser1.Document.body.Scroll = \"Auto\" @#ʾİ취 
      End Sub 
      2λҳбѡвֵHTML 
      Private Sub Command1_Click() 
      Dim objSelection 
      Dim objTxtRange 
      Set objSelection = WebBrowser1.Document.selection 
      If Not (objSelection Is Nothing) Then 
      Set objTxtRange = objSelection.createRange 
      If Not (objTxtRange Is Nothing) Then 
      Debug.Print objTxtRange.htmlText 
      Set objTxtRange = Nothing 
      End If 
      Set objSelection = Nothing 
      End If 
      End Sub 
      Private Sub Form_Load() 
      WebBrowser1.Navigate \"http://www.applevb.com\" 
      End Sub 
      Navigate       ʽ Ϊ 
      WebBrowser   .Navigate URL 
      [Flags,][TargetFrameName,][PostData,][Headers] 
      ---- WebBrowser   ֧    Ҫ   : 
      GoBack        һ  
      GoForward        һ  
      GoHome     ҡ     ҳ 
      Stop    ͣ ֹ   
      Refresh    ˢ ¡ 
      Navigate      
      ---- WebBrowser     Ӧ   : 
      ---- BeforeNavigate        ʼ   ǰ   һ     ȡ  URL    
      ---- WebBrowser     Ҫ   : 
      ---- URL           ׼URL     磺  ܽwww.MicroSoft.Com   
        Ϊhttp://www.MicroSoft.Com.URL Uniform Resource Locator   д  
      Internet WWW        ָ  Ϣ λ    ʾ  
      ʹWebBrowserNavigatorNavigator2һaspĵҴ 
      ȥaspĵ޷òʲôԭ 
      vbԴ룺 
      Private Sub cmdSubmit_Click() 
      Dim strURL As String, strFormData As String 
      Dim strData As String 
      strURL = Trim$(txtURL.Text) 
      strFormData = \"name=\" & Trim$(txtName.Text) & 
      \"&password=\" & Trim$(txtPassword.Text) 
      Call WBTest.Navigate2(strURL, 64, \"_blank\", strFormData, [Page]
      \"hello\") 
      End Sub 
      aspԴ룺 
      <%@ Language=VBScript %> 
      <% 
      dim strName 
      dim strPassword 
      strName=Trim(Request.Form(\"name\")) 
      strPassword=Trim(Request.Form(\"password\")) 
      Response.Write(strName) 
      Response.Write(strPassword) 
      if strName=\"KingZhang\" and strPassword=\"123456\" then 
      Response.Write(\"½ɹ\") 
      else 
      Response.Write(\"Ƿ½û\") 
      end if 
      %> 
      ********************************************************************* 
      Option Explicit 
      Private Sub Command1_Click() 
      Dim szValue As String 
      WebBrowser1.Document.body.innerHTML = \" 

      method=post action=http://ַ/xxx.php> 
      \" 
      WebBrowser1.Document.Forms(\"post\").submit 
      End Sub 
      Private Sub Form_Load() 
      WebBrowser1.Navigate2 \"about:blank\" 
      End Sub 
      Top 

      ******************************************************************** 
      ʣWebBrwoserؼṩNavigateNavigate2ṩ˴ 
      Ĳ÷ʽΪWebBrowser1.Navigate2(URL,[Flags], 
      [TargetFrameName],[PostData],[Headers]) 
      PostDataһύַ\"name=aaa&password=123\" 
      ΪʲôЧģ˲ȡݣ 
      ЧĻͲҪһhtmlģֵˡ 
      ܼpostȥϢ 
      Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As 
      Variant, Flags As Variant, TargetFrameName As Variant, PostData As 
      Variant, Headers As Variant, Cancel As Boolean) 
      MsgBox PostData 
      End Sub 
      WebBrowser813 
      WebBrowser813ԣԼǵĹܣ 
       ˵ 
      GoBack ൱IEġˡťʹڵǰʷбкһ 
      GoForward ൱IEġǰťʹڵǰʷбǰһ 
      GoHome ൱IEġҳťûĬϵҳ 
      GoSearch ൱IEġťûĬϵҳ 
      Navigate ӵָURL 
      Refresh ˢµǰҳ 
      Refresh2 ͬϣֻǿָˢ¼ָˢ¼ֵRefreshConstantsöٱ 
      ñExDisp.hУָĲֵͬ£ 
      REFRESH_NORMAL ִм򵥵ˢ£HTTP pragma: no-cacheͷ͸ 
      REFRESH_IFEXPIRED ֻҳںŽм򵥵ˢ 
      REFRESH_CONTINUE ڲʹáMSDNдDO NOT USE! ʹ 
      REFRESH_COMPLETELY pragma: no-cacheͷ͵ [Page]
      Stop ൱IEġֹͣťֹͣǰҳ漰ݵ 
       ˵ 
      Application 
      öЧ򷵻ƹWebBrowserؼӦóʵֵԶ(IDispatch)ԶЧ򽫷WebBrowser 

      ؼԶ 
      Parent WebBrowserؼĸԶͨһIE 
      Container WebBrowserؼԶֵͨParentԷصֵͬ 
      Document ΪĵԶHTMLǰʾWebBrowserУ 
      DocumentṩDHTML Object Modelķ; 
      TopLevelContainer һBooleanֵIEǷWebBrowserؼǾͷtrue 
      Type ѱWebBrowserؼصĶ͡磺.docļͻ᷵ 
      Microsoft Word Document 
      Left ػWebBrowserؼڵڲߵľ 
      Top ػWebBrowserؼڵڲڶߵľ 
      Width ػWebBrowserڵĿȣΪλ 
      Height ػWebBrowserڵĸ߶ȣΪλ 
      LocationName һַַWebBrowserǰʾԴƣԴ 
      ҳҳı⣻ļļУļļе 
      LocationURL WebBrowserǰʾԴURL 
      Busy һBooleanֵ˵WebBrowserǰǷڼURLtrue 
      Ϳʹstopִеķʲ

vbؼӦ֮listview | ӵѲ | (898) |  (0)  һƪVBʵֶWEBBROWSER1ݵ...    
һƪVB WebBrowser1εҳ... 
      £&#8226;VBWebBrowserؼʹ÷ܽᡡ&#8226;WebBrowserؼ鿴ҳԴ,...
      &#8226;C# webBrowserеHTMLؼ...&#8226;WebBrowserؼһЩ÷
      &#8226;VB Webbrowserؼ⡡&#8226;WinformжEXCELDataGridVi...
      &#8226;WebBrowserؼ+CssʽWeb...&#8226;ֱӷWebBrowserؼеHTML...
      &#8226;ʹWebBrowserؼstringԼ...&#8226;.netwebbrowserؼʵ...
      >>
 ۣ    ۣա    ע | ¼ *Ϊ50ֽ
       
      ַ䣺 (ѡ)
       
      ڡݣ騋 


       
       
      ֤룺  λ֤룬ĸִСд
      ? 
           ȡظ

         

&copy;2009 Baidu 